use Compress::Zlib;
my ($c,$o);
my $if = shift;
my $of = shift;
open( SRC, '<', $if ) or die "cannot open file obj.flatedecode - $!";
binmode SRC;
read( SRC, $c, 1048576 ) or die "cannot read obj.flatedecode - $!";
$o = uncompress($c);
open( OUT, '>', $of ) or die "connot clobber output file - $!";
print OUT $o;
close OUT;
close SRC;

